tell application "IOWarriorAERelay"
	set result to IsIOWarriorPresent
	if result is equal to false then
		display dialog "IOWarrior not present"
		return
	end if
	
	WriteInterface0 port0 255 port1 255 port2 255 port3 254
	WriteInterface0 port0 255 port1 255 port2 255 port3 253
	WriteInterface0 port0 255 port1 255 port2 255 port3 251
	WriteInterface0 port0 255 port1 255 port2 255 port3 247
	WriteInterface0 port0 255 port1 255 port2 255 port3 239
	WriteInterface0 port0 255 port1 255 port2 255 port3 223
	WriteInterface0 port0 255 port1 255 port2 255 port3 191
	WriteInterface0 port0 255 port1 255 port2 255 port3 127
	WriteInterface0 port0 255 port1 255 port2 255 port3 223
	WriteInterface0 port0 255 port1 255 port2 255 port3 191
	WriteInterface0 port0 255 port1 255 port2 255 port3 223
	WriteInterface0 port0 255 port1 255 port2 255 port3 239
	WriteInterface0 port0 255 port1 255 port2 255 port3 247
	WriteInterface0 port0 255 port1 255 port2 255 port3 251
	WriteInterface0 port0 255 port1 255 port2 255 port3 253
	WriteInterface0 port0 255 port1 255 port2 255 port3 254
	
	set myResult to ReadInterface0
	display dialog "Port 0:" & item 1 of myResult & 
		", Port 1: " & item 2 of myResult & 
		", Port 2:" & item 3 of myResult & 
		", Port 3:" & item 4 of myResult
end tell